;SEE IF PAGESTREAM3 AND SOFTLOGIK ARE ASSIGNED AND EVERYTHING EXISTS
(set PGSdest (getassign "PageStream3" "a"))
(set SLdest (getassign "SoftLogik" "a"))
(if (OR (= PGSdest "") (= SLdest ""))
(abort "PageStream3: and/or SoftLogik: are not assigned. You must properly install PageStream3 before applying this update patch.")
)
(set @default-dest PGSdest)
(if (<> (exists "PageStream3:PageStream3") 1)
(abort "PageStream3 is not in the PageStream3: directory. You must properly install PageStream3 before applying this update patch.")
)
(if (<> (exists "SoftLogik:Libs") 2)
(abort "The SoftLogik:Libs directory is missing. You must properly install PageStream3 before applying this update patch.")
)
(if (<> (exists "SoftLogik:Engines") 2)
(abort "The SoftLogik:Engines directory is missing. You must properly install PageStream3 before applying this update patch.")
)
(if (<> (exists "SoftLogik:Printers") 2)
(abort "The SoftLogik:Printers directory is missing. You must properly install PageStream3 before applying this update patch.")
)
(if (<> (exists "SoftLogik:Filters") 2)
(abort "The SoftLogik:Filters directory is missing. You must properly install PageStream3 before applying this update patch.")
)
(if (<> (exists "SoftLogik:Effects") 2)
(abort "The SoftLogik:Effects directory is missing. You must properly install PageStream3 before applying this update patch.")
)
;SEE WHAT THE USER WANTS TO INSTALL
(set ALLflag 0)
(set SMAflag 1)
(message "\n\nThis will update your hard drive installation of PageStream 3.0c to version 3.0d. It requires that PageStream 3.0c be installed on your hard drive first. If you have 3.0, 3.0a or 3.0b, and not 3.0c, you cannot use this patch---read the ReadMe.1st! file for other instructions.\n\nYour original PageStream3 disks will not be modified by this update.")
(set install_mode
(askchoice
(prompt
"\nSelect an installation option.\n\nChoose `All' if you have a full PageStream3 installation. Choose `Smart' if you have a custom or minimum PageStream3 installation.\n")
(choices "All New and Improved 3.0d Files" "Smart Install")
(default 0)
(help
"Smart Install will check to see if a file exists before copying the new one to your hard drive. Thus, if you deleted the HP.printer driver because you didn't need it, the new one will not be installed.")
)
)
;COPY THE LHEX PROGRAM TO RAM:
(copyfiles
(source "PageStream3Disk1:lhex")
(dest "ram:")
(nogauge)
)
;UPDATE LIBS
(working "Installing Update Libraries...")
(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Libs x Libs.lha")
(delete "Libs.LHA" (safe))
;UPDATE ENGINES
(working "Installing Updated Engines...")
(run "ram:lhex >NIL: <NIL: -qfw=SoftLogik:Engines x Engines.lha")
(message "\nBefore using PageStream3.0d, you MUST check every directory containing Compugraphic Intellifonts used with PageStream3 and delete any #####.pfb files found there (where # is a digit, i.e., 91545.pfb). (All these files will have 5 digit filename prefixes.)\n\nThese files are generated by PageStream3 when printing to a PostScript printer, but their format has changed in 3.0d and the old files must be deleted.")
;UPDATE ALL FONT PATHS
(
(textfile
(dest "t:PageStream3.prefs")
(include "PageStream3:PageStream3.prefs")
(append "UPDATEFONTPATHS TRUE\n")
(safe)
)
(delete "PageStream3:PageStream3.prefs" (safe))
(copyfiles
(source "t:PageStream3.prefs")
(dest "PageStream3:")
(nogauge)
)
(delete "t:PageStream3.prefs" (safe))
)
(message "\nDo not start PageStream3 until AFTER you have deleted the #####.pfb files (if you have any). The next time you run PageStream3, all the font paths you have added to the program will be updated when the program is loaded. Don't worry that loading will take a fairly long time.\n\nThis will happen only the next time you run PageStream3.")
;INSTALL README
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x Read.LHA")
(delete "Read.LHA" (safe))
;DISPLAY README (Try 3 different ways!)
(run "ram:lhex >NIL: <NIL: -qfw=PageStream3: x Read.LHA")